home *** CD-ROM | disk | FTP | other *** search
/ Business Heaven / Business Heaven.iso / office / labelr / labels.exe / LABINTRO.TXT < prev    next >
Encoding:
Text File  |  1993-11-03  |  8.6 KB  |  190 lines
  1. \CALL NAMEALL\CLEAR MACROS\READ K:BLDIMAGE.MAC\LENGTH #212\IF A>0\JUMP VALUES_SET\ENDIF
  2. \ON ERROR JUMP BADSOBAD\READ K:NEW.AUX\CLEAR ON ERROR\MOVE 'NEW' TO #121\CALLM MOVENO2TEMP
  3. \MOVE G TO #212\MOVE H TO #213\MOVE I TO #214\MOVE J TO #215
  4. \MOVE K TO #216\MOVE L TO #217\MOVE M TO #218
  5. \MOVE N TO #239\MOVE '5.16' TO #1000 ;LABELER Vers. # appears in LABWRITE too! Change in both places!
  6. \MOVE 'LABINTRO' TO #999\MOVE 'N' TO #10001
  7. \MEMORY ?\MOVE A TO #221\MOVE Q TO #741\MOVE O TO #748
  8. \MOVE #221 TO #211
  9. \LENGTH #211\IF A=2\CONVERT #211\ENDIF
  10. \LENGTH #212\IF A=2\CONVERT #212\ENDIF
  11. \LENGTH #213\IF A=2\CONVERT #213\ENDIF
  12. \LENGTH #214\IF A=2\CONVERT #214\ENDIF
  13. \LENGTH #215\IF A=2\CONVERT #215\ENDIF
  14. \LENGTH #217\IF A=2\CONVERT #217\ENDIF
  15. \MOVE #213[6,1] TO #200\IF #200='1' OR #200='3'\KEY END=-1\ELSE
  16. \IF #200='5' OR #200='7'\KEY END=-1\ELSE
  17. \IF #200='9'\KEY END=-1\ENDIF
  18. \MOVE 139 TO J  ;MENU CHOICE COUNTER
  19. \IF #97>2
  20. \MOVE #97 TO #94\MOVE #97 TO #93
  21. \ELSE
  22. \MOVE 1 TO #93\MOVE 2 TO #94
  23. \ENDIF
  24. \MOVE #213[5,1] TO #220
  25. \IF #220=' '\BUILD #213=#213[1,4],'0',#213[6,1]\ENDIF
  26. \MOVE #215[5,1] TO #220
  27. \IF #220=' '\BUILD #215=#215[1,4],'0',#215[6,1]\ENDIF
  28. \MOVE " NO" TO #220
  29. \MOUSE ?
  30. \IF A=2\MOVE "YES" TO #220\ENDIF
  31. \BUILD #211=#211[2,5],'K'
  32. \BUILD #217=#217[2,5]
  33. \BUILD #215=#214[2,6],'.',#215[5,2]
  34. \BUILD #213=#212[2,6],'.',#213[5,2]
  35. \IF #218=255\MOVE '    PC   ' TO #219\ELSE
  36. \IF #218=254\MOVE '    PC/XT' TO #219\ELSE
  37. \IF #218=253\MOVE '    PCjr ' TO #219\ELSE
  38. \IF #218=252\MOVE '    PC/AT' TO #219\ELSE
  39. \IF #218=249\MOVE ' PC Conv.' TO #219\ELSE
  40. \MOVE '    N/A  ' TO #219\ENDIF
  41. \MOVE "NEW" TO #120  ;FLNAME
  42. \MOVE "NEW" TO #121
  43. \MOVE "USA" TO #107  ;COUNTRY
  44. \MOVE "N" TO #108    ;COUNTRY_PRINT
  45. \MOVE '4' TO #350    ;FONT_TYPE
  46. \MOVE 'N' TO #10001  ;CHGD_LBL
  47. \X VALUES_SET\CALLM SET_STNDRDS\CALLM MOVENO2TEMP
  48. \ON ERROR JUMP BAD_SCREEN_MODE
  49. \SCREEN 0,0,18\ON ERROR JUMP NOFONTS\READ K:081118PW.FON\CLEAR ON ERROR\MOVE 11 TO FNTY
  50. \ON ERROR JUMP EVENWORSE\EXEC DOS>DIR NEW.AUX>TEMP.DAT
  51. \IF A=-1\JUMP EVENWORSE\ENDIF\CLEAR ON ERROR
  52. \CLEAR SCREEN\LOC 0,7\WID 300 DOTS CENTERED\HEI 479\OVE 0\TEXT PLANE=0101
  53. \HUE C=0,0 S=0,0,24
  54. Welcome to LABELER!
  55. \"
  56. No warrantee is written or implied.
  57. Be sure the labels you use are
  58. compatible with your laser printer!
  59. This program is produced by:
  60. The Animated Software Co.
  61. America Online:RUSSELL DH
  62. CompuServe:71333,721
  63. Phone:(800) 551-2726
  64. Copyright (c) 1991-93 Russell D. Hoffman
  65. \LOCATE 102,18\TEXT PLANE=1110\DISPLAY "Version: ",#1000
  66. \LOCATE 0,127\WIDTH 290 DOTS
  67. \"
  68. \LINE 2,3,285,130,9,B\LINE 0,0,287,133,9,B
  69. \BLANK 0,134,319,479\TEXT PLANE=0111\WIDTH 290 DOTS BOTH
  70. This program is designed specifically to work with AVERY 5196 laser 3.5" labels, AVERY 5197 laser 5.25" labels, and an HP Laserjet printer with enough RAM for full-page, 150 D.P.I. graphics.  It also requires VGA graphics capabilities.
  71. \"
  72. Do not use ANSI.SYS in your CONFIG.SYS program when running LABELER (you may not be able to see the text you type if you use ANSI.SYS, but you won't break anything.)
  73. \"
  74. Registering the program will support the author directly, and you will receive the program's current version and a brochure about our many exciting animated software products.
  75. \"
  76. Please feel free to give this program to anyone!  Please do NOT, UNDER ANY CIRCUMSTANCES, change it and give away changed copies!  This is copyrighted material and very valuable to it's author!
  77. \"
  78. Press <F2> now to print a registration coupon.  (Don't print one if you have diskette labels in your print tray!)
  79. \ON KEY F2 JUMP PR_REGISTRATION
  80. \"
  81. This menu appears between each label.
  82. \LOCATE 200,469\TEXT PLANE=1101\"PRESS <RETURN> TO CONTINUE...
  83. \CLEAR PICS\BLANK 376,0,639,409
  84. \LOCATE 399,300\WIDTH 180 DOTS BOTH\TEXT PLANE=1110
  85. FIRST-TIME USERS: You can print a single sample page by just pressing the <RETURN> key at each prompt until you get back to this galloping horse.
  86. \ROUNDS -1 SPEED 24 REVERSIBLE\READ K:AS-LOG18.PIC\CLEAR ON ERROR
  87. \X TESTROOM\CLEAR ON KEYS\+
  88. \MOVE 'bytes free' TO #201\CALLM RD_TEMPDAT\X NOROOM\IF Z<2\LOC 360,10\WID 240 DOTS C\ON KEY 7181 JUMP NOROOM\BLA 350,3,607,125\CALLM UNSVD_SND\TEXT PLANE=0100
  89. \LINE 350,3,607,125,4,B
  90. ERROR!
  91. You must have AT LEAST 20,000 BYTES available on the disk to run this program!  Press <ALT-Q> now, exit to DOS and erase enough stuff to free AT LEAST 20,000 BYTES.
  92. \"
  93. SEE YOU IN A WHILE!
  94. \"
  95. THANKS!
  96. \ELSE\ON KEY 7181 JUMP RESTART\ENDIF
  97. \ON KEY 4096 JUMP DOSOUT\ON KEY F2 JUMP PR_REGISTRATION
  98. \LOCATE 416,398\WIDTH 148 DOTS\LINE 400,392,564,414,STD_LNCLR,B\TEXT PLANE=1101
  99. <ALT-Q>: EXIT TO DOS
  100. \IF Z>2\READ K:LB-LOG18.PIC\SHOW 388,10,1\SHOW 400,18,2\ENDIF
  101. \READ K:AS-LOG18.PIC\KEYS MINUS=19200 PLUS=19712 REVERSE=18688 FORWARD=20736 INCREASE=18432 DECREASE=20480\SHOW 390,163,1,15
  102. \X RESTART\CLEAR KEYS\IF Z<2\JUMP START\ENDIF\ON KEY F2\BLA 200,470,639,479
  103. \BLA 0,137,294,479\READ K:LAB_DATA.TXT
  104. \"
  105. \X PR_REGISTRATION\CLEAR ON KEYS\CLEAR SCREEN
  106. \LOC 0,220\WIDTH 639 DOT C\TEXT PLANE=1011
  107. Which printer (LPT#) will you be using
  108. to print a registration coupon?
  109. (Press 1, 2, or 3 and then <RETURN>):
  110. \"
  111. \"
  112. \"
  113. \"
  114. \TEXT PLANE=1110
  115. THANK YOU!!!
  116. \"
  117. \"
  118. \"
  119. \TEXT PLANE=1100
  120. Next time you see the galloping horse,
  121. try these keys:
  122.  
  123. Forward: Right arrow
  124. Reverse: Left arrow
  125. Faster: Up arrow
  126. Slower: Down arrow
  127. Single Step: PG UP, PG DN
  128.  
  129.  
  130. \X RST_F2PTR\CURSOR 36,17\QUESTION P,0\IF P=0\MOVE 1 TO P\ENDIF
  131. \IF P<1 OR P>3\BEEP 35,33\BEEP 24,615\JUMP RST_F2PTR\ENDIF
  132. \X PR_REGIS2\LOC 0,200\TEXT PLANE=1110
  133. ---PRINTING A REGISTRATION COUPON---
  134. \MOVE 'DEL TEMP.AUX' TO #200\EXEC DOS>(#200)\+
  135. \WRITE TEMP.AUX\ON ERROR JUMP NEWREGIS\READ K:PR_REGIS.AUX\CLEAR ON ERRORS\CLEAR MACROS\+
  136. \READ K:PR_REGIS.MAC\CALLM PRINT_REGISTRATION\CLEAR MACROS\READ K:BLDIMAGE.MAC\IF Q=1\CALLM UPSRL\WRITE PR_REGIS.AUX\ENDIF\+
  137. \READ K:TEMP.AUX\JUMP START
  138. \X DOSOUT\ON KEY F10 JUMP START\CALLM DOSEXIT\LOC #320,0\+
  139. \BUILD #200=K,':AS-LOG18.PIC'\ON ERROR JUMP START\READ (#200)\CLEAR ON ERROR
  140. \X START\READ K:LABINTRO.TXT
  141. \X BADSOBAD\MOVE 'COPY SAMPLE.AUX NEW.AUX' TO #200
  142. \EXEC DOS>(#200)
  143. \IF A<>-1 AND Z=0\MOVE 1 TO Z\READ K:LABINTRO.TXT\ENDIF
  144. \LOCATE 0,0\WIDTH 319 DOTS CENTERED\HEIGHT 199\OVERLAY 0\WAIT NOW 111\TEXT PLANE=0100
  145. You are missing NEW.AUX and we could not recreate it from SAMPLE.AUX.  Both these files are needed for LABELER to run properly.  Exit to DOS,  REName some other .AUX file as SAMPLE.AUX and rerun this program.
  146. \X WAITOUT
  147. \WAIT RET 99 'PRESS <RETURN> TO EXIT TO DOS'
  148. \END
  149. \X EVENWORSE
  150. \WAIT RET 99 "Can't perform DOS functions.  Might need more free RAM (480K).  Press <RETURN>"
  151. \JUMP WAITOUT
  152. \X BAD_SCREEN_MODE\TEXT PLANE=0100
  153. \WAIT RET 99 'Unable to set up VGA screen mode 18, 640 BY 480, 16-colors. Press <RETURN>'
  154. \JUMP WAITOUT
  155. \X NOFONTS\TEXT PLANE=0100
  156. \WAIT RET 99 "CAN'T LOAD '081118PW.FON' (SHORT ON RAM?)... PRESS <RETURN> TO EXIT TO DOS..."\END
  157. \X NAMEALL\CLEAR NAMES
  158. \NAME #100=ADDRINFOLINE\NAME #101=COMPANY\NAME #102=ADDR1LINE
  159. \NAME #103=ADDR2LINE\NAME #104=CITY\NAME #105=STATE\NAME #106=ZIP
  160. \NAME #107=COUNTRY\NAME #108=COUNTRY_PRINT\NAME #109=PHONE
  161. \NAME #120=FLNAME
  162. \NAME #901=DRVPATH\NAME #121=HLDFLNM\NAME #127=LABELNM
  163. \NAME #111=FNTY\NAME #112=AUTHRFNT\NAME #113=BODYFNT\NAME #114=CMPNYFNT
  164. \NAME #130=DISK_NAME\NAME #131=DSK1AUTHR\NAME #132=DSK2AUTHR
  165. \NAME #133=DSK3AUTHR\NAME #136=DSK4AUTHR\NAME #137=DSK5AUTHR
  166. \NAME #134=DISK_VERS\NAME #135=DISK_SUBTITLE
  167. \NAME #140=INFO1LN\NAME #141=INFO2LN\NAME #142=INFO3LN\NAME #143=INFO4LN\NAME #144=INFO5LN\NAME #145=INFO6LN\NAME #146=INFO7LN\NAME #147=INFO8LN
  168. \NAME #300=LOWXPRN\NAME #301=LOWYPRN\NAME #302=HIGHXPRN\NAME #303=HIGHYPRN\NAME #304=CURR_LBL\NAME #340=BRDRWIDTH
  169. \NAME #305=TXT_LFT\NAME #310=CRSR_XLOC\NAME #311=CRSR_YLOC
  170. \NAME #350=FONT_TYPE
  171. \NAME #500=LOGO_ACTV\NAME #501=LOGOXLOW\NAME #502=LOGOYLOW\NAME #503=LOGOXHGH\NAME #504=LOGOYHGH
  172. \NAME #505=LOGO_RD_CMD\NAME #506=LOGO_NMBR\NAME #507=LOGO_FORGN\NAME #508=FLIP_LOGO
  173. \NAME #509=LOGO_XLORIG\NAME #510=LOGO_YLORIG\NAME #511=LOGO_XHORIG\NAME #512=LOGO_YHORIG
  174. \NAME #600=SRL_ACTV\NAME #601=SRL_PRFX
  175. \NAME #602=SRL4HGH\NAME #603=SRL4MID\NAME #604=SRL4LOW
  176. \NAME #605=SRL_LST4HGH\NAME #606=SRL_LST4MID\NAME #607=SRL_LST4LOW
  177. \NAME #608=SRL_TEMPRUN\NAME #609=SRL_INCR\NAME #610=SRL_PR
  178. \NAME #611=SRL_STOPPER\NAME #612=SRL_LEN\NAME #613=SRL_XPOSI\NAME #614=SRL_YPOSI
  179. \NAME #660=PRT_LOC\NAME #10001=CHGD_LBL\NAME #1010=RESOLUTION
  180. \NAME #760=LABTYPE\NAME #761=LABSPERPG\NAME #762=FRSTLN
  181. \NAME #881=TEXT_BOX_COLOR\MOVE 14 TO TEXT_BOX_COLOR
  182. \NAME #882=TEXT_COLOR\MOVE 7 TO TEXT_COLOR
  183. \NAME #883=IMAGE_COLOR\MOVE 14 TO IMAGE_COLOR
  184. \NAME #884=STD_LNCLR\MOVE 12 TO STD_LNCLR
  185. \RETURN
  186. \X NEWREGIS\MOVE 'COPY SAMPLE.AUX PR_REGIS.AUX' TO #200\EXEC DOS>(#200)\READ K:TEMP.AUX\JUMP PR_REGIS2
  187. \END
  188.  
  189.  
  190.